home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct04050.geo / 00058.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.0 KB  |  108 lines
  1. on startMovie
  2.   Set_CDcounter(5)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   if Get_NEXT() > 1 then
  9.     CursorsReset()
  10.   end if
  11.   UpdateCursors(25, 0)
  12.   unLoadCast()
  13.   RestoreHilites()
  14. end
  15.  
  16. on TheinitCursor
  17.   initCursorCastNum()
  18.   initCursorList(1)
  19.   set CursorCastNum to getCursor(2)
  20.   cursor([CursorCastNum, CursorCastNum + 1])
  21. end
  22.  
  23. on checkScreenStatus
  24.   CheckRollOver()
  25.   CheckSnakeStatus()
  26.   go(the frame)
  27. end
  28.  
  29. on BlinkNext
  30.   if (the timer > getTimer()) and not soundBusy(2) then
  31.     startTimer()
  32.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  33.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  34.     else
  35.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  36.     end if
  37.   end if
  38. end
  39.  
  40. on GoNext
  41.   if not get_Disabled() then
  42.     sound stop 2
  43.     if Get_NEXT() > 2 then
  44.       repeat with i = 14 to 17
  45.         UpdateCursors(i, 3)
  46.       end repeat
  47.     end if
  48.     if Get_NEXT() > 2 then
  49.       GoNextMovie()
  50.     else
  51.       go("t" & Get_NEXT())
  52.     end if
  53.     Set_NEXT(Get_NEXT() + 1)
  54.   end if
  55. end
  56.  
  57. on stopMovie
  58.   sound stop 1
  59.   unLoad()
  60.   setEmptyCursor()
  61. end
  62.  
  63. on GoNextMovie
  64.   PlaySound("GOSOUND.SO1")
  65.   SaveHilite()
  66.   Add_CDcounter(1)
  67.   set cdNum to Get_CDcounter()
  68.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  69.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  70. end
  71.  
  72. on playTheTSound theTSnd
  73.   PlaySound("NCT04050.s0" & theTSnd)
  74. end
  75.  
  76. on go_pn what_pn, theSprite
  77.   go("pn" & what_pn)
  78.   puppetSprite(theSprite, 1)
  79.   set the castNum of sprite theSprite to the number of cast ("b" & what_pn & "_V")
  80.   repeat with i = 14 to 17
  81.     UpdateCursors(i, 3)
  82.   end repeat
  83.   repeat with i = 22 to 24
  84.     UpdateCursors(i, 2)
  85.   end repeat
  86.   UpdateCursors(25, 3)
  87. end
  88.  
  89. on CursorsReset
  90.   repeat with i = 11 to 17
  91.     UpdateCursors(i, 0)
  92.     puppetSprite(i, 0)
  93.   end repeat
  94. end
  95.  
  96. on step_prep
  97.   repeat with i = 14 to 17
  98.     UpdateCursors(i, 3)
  99.   end repeat
  100. end
  101.  
  102. on CloseBox
  103.   repeat with i = 22 to 25
  104.     UpdateCursors(i, 0)
  105.   end repeat
  106.   go("t2b")
  107. end
  108.